﻿Imports System.IO

Partial Class Interfaz_frmRrhhEmpleados
    Inherits System.Web.UI.Page
    Private CL As New ControladorLogica
    Dim urlImage As String

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If CL.visibilidadesFormsInternos("RecursosHumanos", Session("user").ToString) = False Then
            Response.Redirect("Index.aspx")
        End If
        If Not Page.IsPostBack Then
            cargarDrop()
        End If

    End Sub

#Region "Funciones"
    Public Sub Mensaje(ByVal msg As String)
        Dim alertScript As String = "<script language=JavaScript runat=server>"
        alertScript &= "alert('" & msg & "');"
        alertScript &= "</script>"
        ClientScript.RegisterClientScriptBlock(Page.GetType(), "clientScrip", alertScript)
    End Sub

    Private Sub cargarEmpleado()
        Dim nombre As String = TxTNombre.Text
        Dim apellido As String = TxTapellido.Text
        Dim rut As String = TxTRut.Text
        Dim direccion As String = TxTdireccion.Text
        Dim telefono As String = TxTcarry.Text + "-" + TxTFono.Text
        Dim profesion As String = TxTProf.Text
        Dim edad As String = TxTEdad.Text
        Dim fechaInicioEmpresa As String = txtFechaEntrada.Text
        Dim fechaFinEmpresa As String = txtFechaSalida.Text
        Dim sexo As String = DropSex.Text
        Dim fechaNacimiento As String = DropDia.Text + "-" + DropMes.Text + "-" + DropAño.Text
        Dim nacionalidad As String = DropNac.Text
        Dim paisnacimiento As String = DropPais.Text
        Dim regionNacimiento As String = DropRegion.Text
        Dim comunaNacimiento As String = DropRegion.Text
        Dim ciudadNacimiento As String = DropCiudad.Text
        Dim provinciaRecidencia As String = DropProv.Text
        Dim ciudadResidencia As String = DropCity.Text
        Dim celular As String = DropDigCel.Text + "-" + TxTCelular.Text
        Dim email As String = TxTPreMail.Text + "@" + TxTpostMail.Text
        Dim estadoCivil As String = DropEstadoCivil.Text
        Dim cargasFamiliares As String = DropCargas.Text
        Dim numeroCalzado As String = TxTcalzado.Text
        Dim talla As String = TxTtalla.Text

        Dim nuevoEmpleado As Empleado = New Empleado(nombre, apellido, rut, direccion, telefono, profesion, edad, fechaInicioEmpresa, _
                                        fechaFinEmpresa, sexo, fechaNacimiento, nacionalidad, paisnacimiento, regionNacimiento, _
                                        comunaNacimiento, ciudadNacimiento, provinciaRecidencia, ciudadResidencia, celular, _
                                        email, estadoCivil, cargasFamiliares, numeroCalzado, talla, urlImage)

        CL.InsertarEmpleado(nuevoEmpleado)

    End Sub

    Private Sub cargarDrop()
        Dim count As Integer

        Me.DropAño.Items.Clear()
        Me.DropCargas.Items.Clear()
        Me.DropCity.Items.Clear()
        Me.DropCiudad.Items.Clear()
        Me.DropComuna.Items.Clear()
        Me.DropDia.Items.Clear()
        Me.DropDigCel.Items.Clear()
        Me.DropEstadoCivil.Items.Clear()
        Me.DropMes.Items.Clear()
        Me.DropNac.Items.Clear()
        Me.DropPais.Items.Clear()
        Me.DropProv.Items.Clear()
        Me.DropRegion.Items.Clear()
        Me.DropSex.Items.Clear()

        For count = 1 To 31
            Me.DropDia.Items.Add(count)
        Next

        For count = 1 To 12
            Me.DropMes.Items.Add(count)
        Next

        For count = 1960 To 2050
            Me.DropAño.Items.Add(count)
        Next

        For count = 0 To 10
            Me.DropCargas.Items.Add(count)
        Next

        Me.DropCity.Items.Add("----------")
        Me.DropCiudad.Items.Add("----------")
        Me.DropComuna.Items.Add("----------")

        For count = 7 To 9
            Me.DropDigCel.Items.Add("0" + count)
        Next

        ' Estados Civil
        Me.DropEstadoCivil.Items.Add("Soltero")
        Me.DropEstadoCivil.Items.Add("Casado")
        Me.DropEstadoCivil.Items.Add("Viudo")

        'Nacionalidades
        Me.DropNac.Items.Add("África")
        Me.DropNac.Items.Add("----------")
        Me.DropNac.Items.Add("argelina")
        Me.DropNac.Items.Add("egipcia")
        Me.DropNac.Items.Add("marroquí")
        Me.DropNac.Items.Add("ecuatoguineana")
        Me.DropNac.Items.Add("saharaui")
        Me.DropNac.Items.Add("")
        Me.DropNac.Items.Add("América")
        Me.DropNac.Items.Add("----------")
        Me.DropNac.Items.Add("canadiense")
        Me.DropNac.Items.Add("estadounidense")
        Me.DropNac.Items.Add("mexicana")
        Me.DropNac.Items.Add("costarricense")
        Me.DropNac.Items.Add("salvadoreña")
        Me.DropNac.Items.Add("guatemalteca")
        Me.DropNac.Items.Add("hondureña")
        Me.DropNac.Items.Add("nicaragüense")
        Me.DropNac.Items.Add("panameña")
        Me.DropNac.Items.Add("cubana")
        Me.DropNac.Items.Add("dominicana")
        Me.DropNac.Items.Add("haitiana")
        Me.DropNac.Items.Add("argentina")
        Me.DropNac.Items.Add("boliviana")
        Me.DropNac.Items.Add("brasileña")
        Me.DropNac.Items.Add("chilena")
        Me.DropNac.Items.Add("colombiana")
        Me.DropNac.Items.Add("ecuatoriana")
        Me.DropNac.Items.Add("paraguaya")
        Me.DropNac.Items.Add("peruana")
        Me.DropNac.Items.Add("uruguaya")
        Me.DropNac.Items.Add("venezolana")
        Me.DropNac.Items.Add("")
        Me.DropNac.Items.Add("Asia")
        Me.DropNac.Items.Add("----------")
        Me.DropNac.Items.Add("china")
        Me.DropNac.Items.Add("surcoreana")
        Me.DropNac.Items.Add("filipina")
        Me.DropNac.Items.Add("hindú")
        Me.DropNac.Items.Add("israelí")
        Me.DropNac.Items.Add("japonesa")
        Me.DropNac.Items.Add("libanesa")
        Me.DropNac.Items.Add("rusa")
        Me.DropNac.Items.Add("siria")
        Me.DropNac.Items.Add("vietnamita")
        Me.DropNac.Items.Add("")
        Me.DropNac.Items.Add("Europa")
        Me.DropNac.Items.Add("----------")
        Me.DropNac.Items.Add("albanesa")
        Me.DropNac.Items.Add("española")
        Me.DropNac.Items.Add("francesa")
        Me.DropNac.Items.Add("griega")
        Me.DropNac.Items.Add("italiana")
        Me.DropNac.Items.Add("polaca")
        Me.DropNac.Items.Add("portuguesa")
        Me.DropNac.Items.Add("rumana")
        Me.DropNac.Items.Add("turca")
        Me.DropNac.Items.Add("alemana")
        Me.DropNac.Items.Add("holandesa")
        Me.DropNac.Items.Add("autríaca")
        Me.DropNac.Items.Add("belga")
        Me.DropNac.Items.Add("bulgara")
        Me.DropNac.Items.Add("chipriota")
        Me.DropNac.Items.Add("danesa")
        Me.DropNac.Items.Add("eslovaca")
        Me.DropNac.Items.Add("eslovena")
        Me.DropNac.Items.Add("estona")
        Me.DropNac.Items.Add("finlandesa")
        Me.DropNac.Items.Add("hungara")
        Me.DropNac.Items.Add("irlandesa")
        Me.DropNac.Items.Add("inglesa")
        Me.DropNac.Items.Add("escocesa")
        Me.DropNac.Items.Add("letona")
        Me.DropNac.Items.Add("lituana")
        Me.DropNac.Items.Add("luxemburguesa")
        Me.DropNac.Items.Add("maltesa")
        Me.DropNac.Items.Add("checa")
        Me.DropNac.Items.Add("sueca")
        Me.DropNac.Items.Add("armenia")
        Me.DropNac.Items.Add("bielorrusa")
        Me.DropNac.Items.Add("bosnia")
        Me.DropNac.Items.Add("moldava")
        Me.DropNac.Items.Add("monegasca")
        Me.DropNac.Items.Add("montenegrina")
        Me.DropNac.Items.Add("noruega")
        Me.DropNac.Items.Add("serbia")
        Me.DropNac.Items.Add("suiza")
        Me.DropNac.Items.Add("ucraniana")
        Me.DropNac.Items.Add("")
        Me.DropNac.Items.Add("Oceanía")
        Me.DropNac.Items.Add("---------")
        Me.DropNac.Items.Add("australiana")
        Me.DropNac.Items.Add("papuana")


        Me.DropPais.Items.Add(" Afganistan")
        Me.DropPais.Items.Add("Albania")
        Me.DropPais.Items.Add(" Alemania")
        Me.DropPais.Items.Add("Andorra")
        Me.DropPais.Items.Add("Angola")
        Me.DropPais.Items.Add("Antigua y Barbuda")
        Me.DropPais.Items.Add("Antillas Holandesas")
        Me.DropPais.Items.Add("Arabia Saudita")
        Me.DropPais.Items.Add("Argelia")
        Me.DropPais.Items.Add("Argentina")
        Me.DropPais.Items.Add("Armenia")
        Me.DropPais.Items.Add("Aruba")
        Me.DropPais.Items.Add("Australia")
        Me.DropPais.Items.Add("Austria")
        Me.DropPais.Items.Add("Azerbaijan")
        Me.DropPais.Items.Add("Bahamas")
        Me.DropPais.Items.Add("Bahrain")
        Me.DropPais.Items.Add("Bangladesh")
        Me.DropPais.Items.Add("Barbados")
        Me.DropPais.Items.Add("Belarusia")
        Me.DropPais.Items.Add("Belgica")
        Me.DropPais.Items.Add("Belice")
        Me.DropPais.Items.Add("Benin")
        Me.DropPais.Items.Add("Bermudas")
        Me.DropPais.Items.Add("Bolivia")
        Me.DropPais.Items.Add("Bosnia")
        Me.DropPais.Items.Add("Botswana")
        Me.DropPais.Items.Add("Brasil")
        Me.DropPais.Items.Add("Brunei Darussulam")
        Me.DropPais.Items.Add("Bulgaria")
        Me.DropPais.Items.Add("Burkina Faso")
        Me.DropPais.Items.Add("Burundi")
        Me.DropPais.Items.Add("Buta")
        Me.DropPais.Items.Add("Camboya")
        Me.DropPais.Items.Add("Camerun")
        Me.DropPais.Items.Add("Canada")
        Me.DropPais.Items.Add("Cape Verde")
        Me.DropPais.Items.Add("Chad")
        Me.DropPais.Items.Add("Chile")
        Me.DropPais.Items.Add("China")
        Me.DropPais.Items.Add("Chipre")
        Me.DropPais.Items.Add("Colombia")
        Me.DropPais.Items.Add("Comoros")
        Me.DropPais.Items.Add("Congo")
        Me.DropPais.Items.Add("Corea del Norte")
        Me.DropPais.Items.Add("Corea del Sur")
        Me.DropPais.Items.Add("Costa de Marfíl")
        Me.DropPais.Items.Add("Costa Rica")
        Me.DropPais.Items.Add("Croasia")
        Me.DropPais.Items.Add("Cuba")
        Me.DropPais.Items.Add("Dinamarca")
        Me.DropPais.Items.Add("Djibouti")
        Me.DropPais.Items.Add("Dominica")
        Me.DropPais.Items.Add("Ecuador")
        Me.DropPais.Items.Add("Egipto")
        Me.DropPais.Items.Add("El Salvador")
        Me.DropPais.Items.Add("Emiratos Arabes Unidos")
        Me.DropPais.Items.Add("Eritrea")
        Me.DropPais.Items.Add("Eslovenia")
        Me.DropPais.Items.Add("España")
        Me.DropPais.Items.Add("Estados(Unidos)")
        Me.DropPais.Items.Add("Estonia")
        Me.DropPais.Items.Add("Etiopia")
        Me.DropPais.Items.Add("Fiji")
        Me.DropPais.Items.Add("Filipinas")
        Me.DropPais.Items.Add("Finlandia")
        Me.DropPais.Items.Add("Francia")
        Me.DropPais.Items.Add("Gabon")
        Me.DropPais.Items.Add("Gambia")
        Me.DropPais.Items.Add("Georgia")
        Me.DropPais.Items.Add("Ghana")
        Me.DropPais.Items.Add("Granada")
        Me.DropPais.Items.Add("Grecia")
        Me.DropPais.Items.Add("Groenlandia")
        Me.DropPais.Items.Add("Guadalupe")
        Me.DropPais.Items.Add("Guam")
        Me.DropPais.Items.Add("Guatemala")
        Me.DropPais.Items.Add("Guayana Francesa")
        Me.DropPais.Items.Add("Guerney")
        Me.DropPais.Items.Add("Guinea")
        Me.DropPais.Items.Add("Guinea Bissau")
        Me.DropPais.Items.Add("Guinea Equatorial")
        Me.DropPais.Items.Add("Guyana")
        Me.DropPais.Items.Add("Haiti")
        Me.DropPais.Items.Add("Holanda")
        Me.DropPais.Items.Add("Honduras")
        Me.DropPais.Items.Add("Hong Kong")
        Me.DropPais.Items.Add("Hungria")
        Me.DropPais.Items.Add("India")
        Me.DropPais.Items.Add("Indonesia")
        Me.DropPais.Items.Add("Irak")
        Me.DropPais.Items.Add("Iran")
        Me.DropPais.Items.Add("Irlanda")
        Me.DropPais.Items.Add("Islandia")
        Me.DropPais.Items.Add("Islas Caiman")
        Me.DropPais.Items.Add("Islas Faroe")
        Me.DropPais.Items.Add("Islas Malvinas")
        Me.DropPais.Items.Add("Islas Marshall")
        Me.DropPais.Items.Add("Islas Solomon")
        Me.DropPais.Items.Add("Islas Virgenes Britanicas")
        Me.DropPais.Items.Add("Islas Virgenes U.S.")
        Me.DropPais.Items.Add("Israel")
        Me.DropPais.Items.Add("Italia")
        Me.DropPais.Items.Add("Jamaica")
        Me.DropPais.Items.Add("Japon")
        Me.DropPais.Items.Add("Jersey")
        Me.DropPais.Items.Add("JJordania")
        Me.DropPais.Items.Add("Kazakhstan")
        Me.DropPais.Items.Add("Kenia")
        Me.DropPais.Items.Add("Kiribati")
        Me.DropPais.Items.Add("Kuwait")
        Me.DropPais.Items.Add("Kyrgyzstan")
        Me.DropPais.Items.Add("Laos")
        Me.DropPais.Items.Add("Latvia")
        Me.DropPais.Items.Add("Lesotho")
        Me.DropPais.Items.Add("Libano")
        Me.DropPais.Items.Add("Liberia")
        Me.DropPais.Items.Add("Libia")
        Me.DropPais.Items.Add("Liechtenstein")
        Me.DropPais.Items.Add("Lituania")
        Me.DropPais.Items.Add("Luxemburgo")
        Me.DropPais.Items.Add("Macao")
        Me.DropPais.Items.Add("Macedonia")
        Me.DropPais.Items.Add("Madagascar")
        Me.DropPais.Items.Add("Malasia")
        Me.DropPais.Items.Add("Malawi")
        Me.DropPais.Items.Add("Maldivas")
        Me.DropPais.Items.Add("Mali")
        Me.DropPais.Items.Add("Malta")
        Me.DropPais.Items.Add("Marruecos")
        Me.DropPais.Items.Add("Martinica")
        Me.DropPais.Items.Add("Mauricio")
        Me.DropPais.Items.Add("Mauritania")
        Me.DropPais.Items.Add("Mexico")
        Me.DropPais.Items.Add("Micronesia")
        Me.DropPais.Items.Add("Moldova")
        Me.DropPais.Items.Add("Monaco")
        Me.DropPais.Items.Add("Mongolia")
        Me.DropPais.Items.Add("Mozambique")
        Me.DropPais.Items.Add("Myanmar Burma")
        Me.DropPais.Items.Add("Namibia")
        Me.DropPais.Items.Add("Nepal")
        Me.DropPais.Items.Add("Nicaragua")
        Me.DropPais.Items.Add("Niger")
        Me.DropPais.Items.Add("Nigeria")
        Me.DropPais.Items.Add("Noruega")
        Me.DropPais.Items.Add("Nueva Caledonia")
        Me.DropPais.Items.Add("Nueva Zealandia")
        Me.DropPais.Items.Add("Oman")
        Me.DropPais.Items.Add("Pakistan")
        Me.DropPais.Items.Add("Palestina")
        Me.DropPais.Items.Add("Panama")
        Me.DropPais.Items.Add("Papua Nueva Guinea")
        Me.DropPais.Items.Add("Paraguay")
        Me.DropPais.Items.Add("Peru")
        Me.DropPais.Items.Add("Polinesia Francesa")
        Me.DropPais.Items.Add("Polonia")
        Me.DropPais.Items.Add("Portugal")
        Me.DropPais.Items.Add("Puerto Rico")
        Me.DropPais.Items.Add("Qatar")
        Me.DropPais.Items.Add("Reino Unido")
        Me.DropPais.Items.Add("Republica Centroafricana")
        Me.DropPais.Items.Add("Republica Checa")
        Me.DropPais.Items.Add("Republica Democratica del Congo")
        Me.DropPais.Items.Add("Republica Dominicana")
        Me.DropPais.Items.Add("Republica Eslovaca")
        Me.DropPais.Items.Add("Reunion")
        Me.DropPais.Items.Add("Ruanda")
        Me.DropPais.Items.Add("Rumania")
        Me.DropPais.Items.Add("Rusia")
        Me.DropPais.Items.Add("Sahara")
        Me.DropPais.Items.Add("Samo")
        Me.DropPais.Items.Add("San Cristobal - Nevis St.Kitts")
        Me.DropPais.Items.Add("San Marino")
        Me.DropPais.Items.Add("San Vincente y las Granadinas")
        Me.DropPais.Items.Add("Santa Helena")
        Me.DropPais.Items.Add("Santa Lucia")
        Me.DropPais.Items.Add("Santa Sede(Vaticano)")
        Me.DropPais.Items.Add("Sao Tome & Principe")
        Me.DropPais.Items.Add("Senegal")
        Me.DropPais.Items.Add("Seychelles")
        Me.DropPais.Items.Add("Sierra Leona")
        Me.DropPais.Items.Add("Singapur")
        Me.DropPais.Items.Add("Siria")
        Me.DropPais.Items.Add("Somalia")
        Me.DropPais.Items.Add("Sri Lanka Ceilan")
        Me.DropPais.Items.Add("Sudan")
        Me.DropPais.Items.Add("Suecia")
        Me.DropPais.Items.Add("Suiza")
        Me.DropPais.Items.Add("Sur Africa")
        Me.DropPais.Items.Add("Surinam")
        Me.DropPais.Items.Add("Swaziland")
        Me.DropPais.Items.Add("Tailandia")
        Me.DropPais.Items.Add("Taiwan")
        Me.DropPais.Items.Add("Tajikistan")
        Me.DropPais.Items.Add("Tanzania")
        Me.DropPais.Items.Add("Timor Oriental")
        Me.DropPais.Items.Add("Togo")
        Me.DropPais.Items.Add("Tokelau")
        Me.DropPais.Items.Add("Tonga")
        Me.DropPais.Items.Add("Trinidad & Tobago")
        Me.DropPais.Items.Add("Tunisia")
        Me.DropPais.Items.Add("Turkmenistan")
        Me.DropPais.Items.Add("Turquia")
        Me.DropPais.Items.Add("Ucrania")
        Me.DropPais.Items.Add("Uganda")
        Me.DropPais.Items.Add("Union Europea")
        Me.DropPais.Items.Add("Uruguay")
        Me.DropPais.Items.Add("Uzbekistan")
        Me.DropPais.Items.Add("Vanuatu")
        Me.DropPais.Items.Add("Venezuela")
        Me.DropPais.Items.Add("Vietnam")
        Me.DropPais.Items.Add("Yemen")
        Me.DropPais.Items.Add("Yugoslavia")
        Me.DropPais.Items.Add("Zambia")
        Me.DropPais.Items.Add("Zimbabwe")

        Me.DropProv.Items.Add("----------")
        Me.DropRegion.Items.Add("-----------")

        Me.DropSex.Items.Add("Masculino")
        Me.DropSex.Items.Add("Femenino")
    End Sub

    Private Sub FuncionUpload()
        Dim sExt As String = String.Empty
        Dim sName As String = String.Empty
        ImgSubida.ImageUrl = ""

        If uploadFile.HasFile Then
            sName = uploadFile.FileName
            sExt = Path.GetExtension(sName)

            If ValidaExtension(sExt) Then
                uploadFile.SaveAs(MapPath("~/otros/TrabajadoresMSH/" & sName))
                ImgSubida.ImageUrl = "~/otros/TrabajadoresMSH/" & sName
                urlImage = "~/otros/TrabajadoresMSH/" & sName
                lblMensaje.Text = "Archivo cargado correctamente."
            Else
                lblMensaje.Text = "El archivo no es de tipo imagen."
            End If
        Else
            lblMensaje.Text = "Seleccione el archivo que desea subir."
        End If
    End Sub

    Private Function ValidaExtension(ByVal sExtension As String) As Boolean
        Select Case sExtension
            Case ".jpg", ".jpeg", ".png", ".gif", ".bmp"
                Return True
            Case Else
                Return False
        End Select
    End Function

#End Region

#Region "Botones"

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        cargarEmpleado()
    End Sub

    Protected Sub BtnUpload_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnUpload.Click
        FuncionUpload()
    End Sub
#End Region
    
    
End Class
